Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/23pick/23pickup.frm

Text File | 1995-12-05 | 16KB | 668 lines

VERSION 2.00
Begin Form Pickup
   BackColor       =   &H00FFFFFF&
   Caption         =   "23 Pickup"
   ClientHeight    =   2310
   ClientLeft      =   1170
   ClientTop       =   1905
   ClientWidth     =   7755
   Height          =   3000
   Icon            =   23PICKUP.FRX:0000
   Left            =   1110
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2310
   ScaleWidth      =   7755
   Top             =   1275
   Width           =   7875
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   1680
   End
   Begin CommandButton Command1
      Caption         =   "-&3"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   3
      Left            =   5880
      TabIndex        =   7
      Top             =   1560
      Width           =   975
   End
   Begin CommandButton Command1
      Caption         =   "-&2"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   2
      Left            =   5880
      TabIndex        =   6
      Top             =   840
      Width           =   975
   End
   Begin CommandButton Command1
      Caption         =   "-&1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   1
      Left            =   5880
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin Label Label5
      BackColor       =   &H00FFFFFF&
      Caption         =   "stick(s)"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   2160
      TabIndex        =   5
      Top             =   1560
      Width           =   1095
   End
   Begin Label Label4
      BackColor       =   &H00FFFFFF&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   1680
      TabIndex        =   4
      Top             =   1560
      Width           =   375
   End
   Begin Label Label3
      BackColor       =   &H00FFFFFF&
      Caption         =   "I take"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   720
      TabIndex        =   3
      Top             =   1560
      Width           =   975
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Left"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   48
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   2040
      TabIndex        =   2
      Top             =   120
      Width           =   2295
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   48
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   360
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin Menu file
      Caption         =   "&Game"
      Begin Menu new
         Caption         =   "&New"
         Shortcut        =   {F2}
      End
      Begin Menu ex
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
      Begin Menu thing
         Caption         =   "-"
      End
      Begin Menu abt
         Caption         =   "&About 23 Pickup..."
      End
   End
   Begin Menu options
      Caption         =   "&Options"
      Begin Menu level
         Caption         =   "&Level of Difficulty"
         Begin Menu easy
            Caption         =   "&Easy"
         End
         Begin Menu medium
            Caption         =   "&Medium"
            Checked         =   -1  'True
         End
         Begin Menu hard
            Caption         =   "&Hard"
         End
      End
      Begin Menu startplay
         Caption         =   "&Starting Player"
         Begin Menu youstart
            Caption         =   "&You Start"
            Checked         =   -1  'True
         End
         Begin Menu compstart
            Caption         =   "&Computer Starts"
         End
      End
      Begin Menu back
         Caption         =   "&Background Color"
         Begin Menu green
            Caption         =   "&Green"
         End
         Begin Menu blue
            Caption         =   "&Blue"
         End
         Begin Menu purple
            Caption         =   "&Purple"
         End
         Begin Menu red
            Caption         =   "&Red"
         End
         Begin Menu yellow
            Caption         =   "&Yellow"
         End
         Begin Menu bluegray
            Caption         =   "B&lue-Gray"
         End
         Begin Menu gray
            Caption         =   "Gr&ay"
         End
         Begin Menu white
            Caption         =   "&White"
            Checked         =   -1  'True
         End
      End
   End
   Begin Menu help
      Caption         =   "&Help"
   End
End






Sub abt_Click ()
Load about
about.Show
End Sub

Sub blue_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = -1
purple.checked = 0
bluegray.checked = 0
gray.checked = 0

h = &HFFFF00
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h

End Sub

Sub bluegray_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = -1
gray.checked = 0

h = &H808000
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h

End Sub

Sub Command1_Click (Index As Integer)
label4.caption = ""
x = Val(label1.caption)
If x < Index Then Beep: Exit Sub
label1.caption = Str$(x - Index): x = Val(label1.caption)
If Val(label1.caption) = 0 Then
    MsgBox "You lost.", 16, "Sorry, Dude": Exit Sub
End If
timer1.enabled = -1
End Sub

Sub Command2_Click ()
x = Val(label1.caption)
If x < 2 Then Beep: Exit Sub
label1.caption = Str$(x - 2): x = Val(label1.caption)
If Val(label1.caption) = 1 Then
    label4.caption = Str$(1)
    label1.caption = Str$(0)
    MsgBox "You Won!", 48, "Congratulations"
ElseIf Val(label1.caption) = 0 Then
    MsgBox "You lost.", 16, "Sorry, Dude"
End If

If i = 3 Then
    For e = 1 To 21 Step 4
        If x - e > 0 And x - e < 4 Then
            label4.caption = Str$(x - e)